﻿Public Class HukukHatirlatmaRapor
    Inherits ProcessReport

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "Hatırlatma Listesi"
                InitialHelp = "İşyeri bilgisini ve/veya tarih aralığını girin."
                AddIsyeriNR()
                AddDateRange("Tarih", "nl")
            Case EventType.ValidateForm
                e.Result = True
            Case EventType.ReportHeader
                Rs = Hukuk.Hatirlatma.Liste(Remote, Department.ID, Input("Isyeri"), IsNull(Input("Tarih1"), "1976/01/01"), IsNull(Input("Tarih2"), "2049/12/31"))
            Case EventType.PageHeader
                Report.SetColumns("Yıl;Sıra no.;Tarih;İşyeri no.;İşyeri adı;Durum", "1;1;2;2;5;1", "c;r;d;c;l;c", "--")
            Case EventType.ReportDetail
                Do Until Rs.EOF
                    Report.Print(Rs("yil"), Rs("sirano"), Rs("tarih"), Rs("isyerino"), Rs("isyeriadi"))
                    Rs.MoveNext()
                Loop
        End Select
    End Sub

End Class
